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-Sep-1984 00: 3 
i Seer 19Bt 00:11:08 
Subroutine NEWFILE_AND_TIME_STAMP (Lun) 

Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
. VAIN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
: TNCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
© OTHER PERSON, NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS HEREBY 
* TRANSFERRED. * 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
: CORPORATION. ® 
® ® 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
® 
cd 
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C 
: Required files 
Include ‘src$:msghdr.for /nolist' 


Byte Lun 
Call the ‘header’ routine to sutput the first two Lines of the 


header portion of the report. 
Call HEADER (Lun) 


OOO 


Determine if this is a ‘new file created’ or a ‘time stamp' 

entry. Call the ‘logger’ routine with the soprepe lete heading 

to output for the header portion of the report. (New file creation 
and time stamp entries consist of headers only, as they are just 
indicators that the event occurred). 


If (EMBSW_HD_ENTRY .EQ. '23'X) Then ' New file entry 
Call LOGGER Tlun, "ERRLOG. SYS tREATED® ) 


Else if (EMBSW_HD_ENTRY .EQ. 26" x) Then ! Time stamp entry 
Call LOGGER (lin, *TIME STAMP") 


Endif 
Return 
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PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


-00000000 [4 
-O000000E I*2 


ARRAYS 
Address Type 


$- Reon gnoo L*1 
-00000006 I*4 


Type Name 
HEADER 


/*7 


0116 End 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:NEWFILE/OBJ=OBJ$:NEWFILE MSRCS:NEWFILE 


/CHECK=(NOBOUNDS ,0 
/DEBUG= (NOS YRBOL § TRAC 


NEWF ILE_AND_TIME_STAMP 


! Module 


Total Space Allocated 658 


Name 
NEWF ILE_AND_TIME_STAMP 


EMBSL_HD_SID 
EMBS$W_HD_ERRSEQ 


Sep-1984 
ifeje 8ep- 1984 


Attributes 


Address Type Name 


MeitBite  DISksumshast 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 
RD WRT LONG 


3-00000004 asf on HD_ENTRY 


AP-00000004a L*1 


Name Bytes Dimensions 


EM 512 
EMBSQ_HD_TIME é 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
LOGGER 


CC ry4 1) emma 


(0:511) 
(2) 


DE ,MAP) 
/NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


-4-56 Page 2 
RF .SRCINEWFILE.FOR; 1 
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NEWF ILE _AND_TIME STAMP 


COMPILATION STATISTICS 


un Time “0 seconds 
essen Time: seconds 
Page Faults: 

Dynamic Memory: 166 pages 


if enc t9Re Peibk:48 }«— DTSKSUMSMASTER:LERP SRCINEWFILE.FOR;T°% 


ec > C+ >> Oo ee — . . —; 
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